home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 3: CDPD 3 / Almathera Ten on Ten - Disc 3: CDPD3.iso / fish / 751-760 / 758 / mine / txt / images.mod < prev    next >
Text File  |  1995-03-18  |  6KB  |  369 lines
  1. (************************************************************************************
  2.  
  3. :Program.       Images
  4.  
  5. :Contents.      Die Bitplanes der Images des Spiels Mine
  6.  
  7.  
  8. :Author.        Thomas Ansorge
  9.  
  10. :Address.       Dinkelackerring 55, W-6730 Neustadt, Deutschland
  11.  
  12.  
  13. :Language.      Modula-2
  14.  
  15. :Translator.    M2Amiga V4.0 (deutsch)
  16.  
  17.  
  18. :Version.       1.0 vom 08. August 1992
  19.  
  20. :History.       1.0 vom 08.08.1992
  21.  
  22.  
  23. ************************************************************************************)
  24.  
  25.  
  26. (*$ ChipCode := TRUE *)
  27.  
  28. IMPLEMENTATION MODULE Images;
  29.  
  30. FROM SYSTEM IMPORT ASSEMBLE;
  31.  
  32. (* ------------------------------------------------------------------------------- *)
  33.  
  34. (*$ EntryExitCode := FALSE *)
  35.  
  36. PROCEDURE BombePlane;
  37.  
  38.    BEGIN
  39.  
  40.    ASSEMBLE (
  41.       DC.W $ffff
  42.       DC.W $fc00
  43.       DC.W $c000
  44.       DC.W $0000
  45.       DC.W $c000
  46.       DC.W $0000
  47.       DC.W $c07c
  48.       DC.W $0000
  49.       DC.W $c07c
  50.       DC.W $0000
  51.       DC.W $c7ff
  52.       DC.W $c000
  53.       DC.W $cfff
  54.       DC.W $e000
  55.       DC.W $cfff
  56.       DC.W $e000
  57.       DC.W $c7ff
  58.       DC.W $c000
  59.       DC.W $c000
  60.       DC.W $0000
  61.       DC.W $8000
  62.       DC.W $0000
  63.       DC.W $0000
  64.       DC.W $0000
  65.  
  66.       DC.W $0000
  67.       DC.W $0200
  68.       DC.W $0000
  69.       DC.W $0600
  70.       DC.W $0000
  71.       DC.W $0600
  72.       DC.W $0000
  73.       DC.W $0600
  74.       DC.W $0000
  75.       DC.W $0600
  76.       DC.W $0000
  77.       DC.W $0600
  78.       DC.W $0000
  79.       DC.W $0600
  80.       DC.W $0000
  81.       DC.W $0600
  82.       DC.W $0000
  83.       DC.W $0600
  84.       DC.W $0000
  85.       DC.W $0600
  86.       DC.W $7fff
  87.       DC.W $fe00
  88.       DC.W $0000
  89.       DC.W $0000
  90.    END);
  91. END BombePlane;
  92.  
  93. (* ------------------------------------------------------------------------------- *)
  94.  
  95. (*$ EntryExitCode := FALSE *)
  96.  
  97. PROCEDURE ClickedPlane;
  98.  
  99.    BEGIN
  100.  
  101.    ASSEMBLE (
  102.       DC.W $ffff
  103.       DC.W $fc00
  104.       DC.W $c000
  105.       DC.W $0000
  106.       DC.W $c000
  107.       DC.W $0000
  108.       DC.W $c000
  109.       DC.W $0000
  110.       DC.W $c000
  111.       DC.W $0000
  112.       DC.W $c000
  113.       DC.W $0000
  114.       DC.W $c000
  115.       DC.W $0000
  116.       DC.W $c000
  117.       DC.W $0000
  118.       DC.W $c000
  119.       DC.W $0000
  120.       DC.W $c000
  121.       DC.W $0000
  122.       DC.W $8000
  123.       DC.W $0000
  124.       DC.W $0000
  125.       DC.W $0000
  126.  
  127.       DC.W $0000
  128.       DC.W $0200
  129.       DC.W $0000
  130.       DC.W $0600
  131.       DC.W $0000
  132.       DC.W $0600
  133.       DC.W $0000
  134.       DC.W $0600
  135.       DC.W $0000
  136.       DC.W $0600
  137.       DC.W $0000
  138.       DC.W $0600
  139.       DC.W $0000
  140.       DC.W $0600
  141.       DC.W $0000
  142.       DC.W $0600
  143.       DC.W $0000
  144.       DC.W $0600
  145.       DC.W $0000
  146.       DC.W $0600
  147.       DC.W $7fff
  148.       DC.W $fe00
  149.       DC.W $0000
  150.       DC.W $0000
  151.    END);
  152. END ClickedPlane;
  153.  
  154. (* ------------------------------------------------------------------------------- *)
  155.  
  156. (*$ EntryExitCode := FALSE *)
  157.  
  158. PROCEDURE ClickMePlane;
  159.  
  160.    BEGIN
  161.  
  162.    ASSEMBLE (
  163.       DC.W $0000
  164.       DC.W $0200
  165.       DC.W $0000
  166.       DC.W $0600
  167.       DC.W $0000
  168.       DC.W $0600
  169.       DC.W $0000
  170.       DC.W $0600
  171.       DC.W $0000
  172.       DC.W $0600
  173.       DC.W $0000
  174.       DC.W $0600
  175.       DC.W $0000
  176.       DC.W $0600
  177.       DC.W $0000
  178.       DC.W $0600
  179.       DC.W $0000
  180.       DC.W $0600
  181.       DC.W $0000
  182.       DC.W $0600
  183.       DC.W $7fff
  184.       DC.W $fe00
  185.       DC.W $0000
  186.       DC.W $0000
  187.  
  188.       DC.W $ffff
  189.       DC.W $fc00
  190.       DC.W $c000
  191.       DC.W $0000
  192.       DC.W $c000
  193.       DC.W $0000
  194.       DC.W $c000
  195.       DC.W $0000
  196.       DC.W $c000
  197.       DC.W $0000
  198.       DC.W $c000
  199.       DC.W $0000
  200.       DC.W $c000
  201.       DC.W $0000
  202.       DC.W $c000
  203.       DC.W $0000
  204.       DC.W $c000
  205.       DC.W $0000
  206.       DC.W $c000
  207.       DC.W $0000
  208.       DC.W $8000
  209.       DC.W $0000
  210.       DC.W $0000
  211.       DC.W $0000
  212.    END);
  213. END ClickMePlane;
  214.  
  215. (* ------------------------------------------------------------------------------- *)
  216.  
  217. (*$ EntryExitCode := FALSE *)
  218.  
  219. PROCEDURE ExplosionPlane;
  220.  
  221.    BEGIN
  222.  
  223.    ASSEMBLE (
  224.       DC.W $ffff
  225.       DC.W $fc00
  226.       DC.W $c810
  227.       DC.W $1000
  228.       DC.W $d041
  229.       DC.W $0000
  230.       DC.W $c000
  231.       DC.W $0000
  232.       DC.W $d000
  233.       DC.W $0800
  234.       DC.W $c000
  235.       DC.W $0000
  236.       DC.W $c030
  237.       DC.W $0000
  238.       DC.W $ca82
  239.       DC.W $6000
  240.       DC.W $c7ff
  241.       DC.W $c000
  242.       DC.W $c000
  243.       DC.W $0000
  244.       DC.W $8000
  245.       DC.W $0000
  246.       DC.W $0000
  247.       DC.W $0000
  248.  
  249.       DC.W $0000
  250.       DC.W $0200
  251.       DC.W $0000
  252.       DC.W $0600
  253.       DC.W $0410
  254.       DC.W $2600
  255.       DC.W $0b5a
  256.       DC.W $4600
  257.       DC.W $04fc
  258.       DC.W $9600
  259.       DC.W $0f73
  260.       DC.W $e600
  261.       DC.W $05ce
  262.       DC.W $8600
  263.       DC.W $057d
  264.       DC.W $8600
  265.       DC.W $0000
  266.       DC.W $0600
  267.       DC.W $0000
  268.       DC.W $0600
  269.       DC.W $7fff
  270.       DC.W $fe00
  271.       DC.W $0000
  272.       DC.W $0000
  273.    END);
  274. END ExplosionPlane;
  275.  
  276. (* ------------------------------------------------------------------------------- *)
  277.  
  278. (*$ EntryExitCode := FALSE *)
  279.  
  280. PROCEDURE FahnePlane;
  281.  
  282.    BEGIN
  283.  
  284.    ASSEMBLE (
  285.       DC.W $0000
  286.       DC.W $0200
  287.       DC.W $0000
  288.       DC.W $0600
  289.       DC.W $00c0
  290.       DC.W $0600
  291.       DC.W $00c0
  292.       DC.W $0600
  293.       DC.W $00c0
  294.       DC.W $0600
  295.       DC.W $00c0
  296.       DC.W $0600
  297.       DC.W $00c0
  298.       DC.W $0600
  299.       DC.W $00c0
  300.       DC.W $0600
  301.       DC.W $03f0
  302.       DC.W $0600
  303.       DC.W $0000
  304.       DC.W $0600
  305.       DC.W $7fff
  306.       DC.W $fe00
  307.       DC.W $0000
  308.       DC.W $0000
  309.  
  310.       DC.W $ffff
  311.       DC.W $fc00
  312.       DC.W $c000
  313.       DC.W $0000
  314.       DC.W $c000
  315.       DC.W $0000
  316.       DC.W $c03f
  317.       DC.W $8000
  318.       DC.W $c03e
  319.       DC.W $0000
  320.       DC.W $c03f
  321.       DC.W $8000
  322.       DC.W $c000
  323.       DC.W $0000
  324.       DC.W $c000
  325.       DC.W $0000
  326.       DC.W $c000
  327.       DC.W $0000
  328.       DC.W $c000
  329.       DC.W $0000
  330.       DC.W $8000
  331.       DC.W $0000
  332.       DC.W $0000
  333.       DC.W $0000
  334.    END);
  335. END FahnePlane;
  336.  
  337. (* ------------------------------------------------------------------------------- *)
  338.  
  339. (*$ EntryExitCode := FALSE *)
  340.  
  341. PROCEDURE FahneORPlane;
  342.    
  343.    BEGIN
  344.    
  345.    ASSEMBLE (
  346.       DC.W $3000
  347.       DC.W $3000
  348.       DC.W $3000
  349.       DC.W $3000
  350.       DC.W $3000
  351.       DC.W $3000
  352.       DC.W $fc00
  353.       DC.W $0000
  354.  
  355.       DC.W $0000
  356.       DC.W $0fe0
  357.       DC.W $0f80
  358.       DC.W $0fe0
  359.       DC.W $0000
  360.       DC.W $0000
  361.       DC.W $0000
  362.       DC.W $0000
  363.    END);
  364. END FahneORPlane;
  365.  
  366. (* ------------------------------------------------------------------------------- *)
  367.  
  368. END Images (* IMPLEMENTATION MODULE *).
  369.